(ps-do-despool): Alternative output method for MSDOS.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index e3cba874a5b4ff51bc35625e52b073ce8ac9ce0b..90cfcab2fc229109667443a820a876398d8ca2a2 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1868,9 +1868,11 @@ EndDSCPage\n"))
          (message "Printing..."))
       (save-excursion
        (set-buffer ps-spool-buffer)
-       (apply 'call-process-region
-              (point-min) (point-max) ps-lpr-command nil 0 nil
-              ps-lpr-switches))
+       (if (eq system-type 'ms-dos)
+           (write-region (point-min) (point-max) "PRN")
+         (apply 'call-process-region
+                (point-min) (point-max) ps-lpr-command nil 0 nil
+                ps-lpr-switches)))
       (if ps-razzle-dazzle
          (message "Printing...done")))
     (kill-buffer ps-spool-buffer)))